﻿
Namespace internalFunctions
    Public Class _assert
        Inherits inputIFunction(Of Boolean, Boolean)

        Public Sub New()
            MyBase.New("assert")
        End Sub

        Protected Overrides Function finder() As iVariableFinder(Of Boolean)
            Return bool_finder()
        End Function

        Protected Overrides Function invoke(ByVal i As Boolean, ByRef o As Boolean) As Boolean
            assert(i, context.callingcode() + newline.incode() + "@" + context.callstack())
            Return True
        End Function

        Protected Overrides Function returnType() As typeDefination
            Return typeDefination.bool
        End Function
    End Class
End Namespace
